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MODULE INIBAD ( 
ANGUAGE (BL 15832), 
DENT = *V04=000 
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BEGIN 
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‘e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
' COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ CORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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00 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
88 bs SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
009 S scindeaienhbiasineuadiendienisimeaddiniinehesiiuasdiaimabnennaiteiamnaae 
003 !+¢ 
003 ‘ 
sit FACILITY: INIT Utility Structure Level 1 
008 | ABSTRACT: 
O08 This module contains the routines that do the bad block processing. 
003 i ENVIRONMENT : 
004 STARLET operating system, including privileged system services 


and internal exec routines. 
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Correct a problem that caused the software badblock information 
$0, bs, ignored on a device whose sector size was not 512 bytes 
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at AUTHOR: Andrew C. Goldstein, CREATION DATE: 10-Nov-1977 19:21 
049 MODIFIED BY: 
051 i v03-004 ACG0361 Andrew C. Goldstein, | 21-Sep-1983 16:45 
O36 Eliminate use of physical read operations 
094 v03-003 LMP0060 L. Mark Pilant, 24-Nov-1982 14:39 
036 i 
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vO3-002 LMP50629 L. Mark Pilant, 1-Noy-1982 15:52 
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Correct a problem that caused an invalid media address error 
to be returned when the number of sectors in a cylinder was 
not a multiple of the device blocking factor. 


ACG0283 Andrew C. Goldstein, 8-Apr-1982 10:15 

Clean up use of VERIFIED options 

ACG0075 Andrew C. Gotdstein 19-Oct-1979 17:48 

Add pack serial number to home block 

ACG0069 Andrew C. Goldstein, 9=0ct-1979 16:44 

Remove device data table; always look for DEC-144 data 

ACG00001 Andrew C. Goldstein, 10-Oct-1978 21:27 | 


Previous revision history moved to CINIT.SRCJINIT.REV 
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main level bad block processing 


! 
GET_FACTBAD, ! process factory bad block data 
GET_SOF TBAD : NOVALUE, ! process bad block scan program data 
GET _USERBAD : NOVALUE, ! process user specified data 
MARR_BAD : NOVALUE; ! enter bad block in allocation table 


H 16 
1e=8Sp=1986 12:95:13 DT SKSVMGMASTERSCINIT SRCIINIBAD.832:1°%° (23 
GLOBAL ROUTINE INIT_BADBLOCKS : NOVALUE = 
abe 
FUNCTIONAL DESCRIPTION: 
This is the main bad block processing routine. It calls the software 


data, factory data, and manually entered bad block routines as 
is appropriate. 


2s 


CALLING SEQUENCE: 
INIT_BADBLOCKS () 


INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

parser data base 

data base in INIT_DISK 
OUTPUT PARAMETERS: 

NONE 


IMPLICIT OUTPUTS: 
bad block area in allocation table 
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ROUTINE VALUE: 
; NONE 
4 SIDE EFFECTS: 
2 disk bad block data read 
4 oo 
4 
Z BEGIN 
4 EXTERNAL 
4 INIT_OPTIONS : BITVECTOR, ! command options 
4 DEVITE_CHAR : BBLOCK, ' device characteristics 
VOLUME SIZE, ! size of volume rounded to cluster 
SMALL_BISK; ! maximum size of a ‘'small"’ disk 


! Establish whether the volume has factory bad block data or not and 
' call the appropriate routine. Then, if user data has been entered, 
call the routine to process it. 
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IF _.INIT_OPTIONSCOPT_VERIF IED] 
THEN 

IF NOT GET FACTBAD () 
THEN GET_SOFTBAD (); 


END 
ELSE 
BEGIN 
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16 
NIB 1b-5e -1984 01:43: VAX-11 Bliss-32 V4.0-742 
04-000 1 730071382 93:98:93 DISKSVMSMASTER:CINIT.SRC 
IF «DEVICE CHAR(DIBSL pare, Oce) bssu . VOLUME gfze 
ba MARK_BAD (1, .DEVICE_CHARCDIBSL_MAXBLOCR)); 


Ds 


IF_.INIT_OPTIONSCOPT_BADBLOCKS) 
THEN GET“USERBAD (); 


END; ! end of routine INIT_BADBLOCKS 
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-TITLE tr yee: 
IDENT \v04-000\ 


-EXTRN INIT_OPTIONS, DEVICE_CHAR 
«EXTRN VOLUME_SIZE, SMALL_DISK 


-PSECT S$CODES,NOWRT,2 


0000 00000 «ENTRY INIT_BADBLOCKS, Save nothing 
OF 0000G CF 06 £1 00002 BBC #6, INIT_OPTIONS, 1 
0000v CF 00 re 00008 CALLS #0, GET_FACTBAD 
18 50 €8 0000D BLBS ° 
0000v CF 00 FB 00010 CALLS #0, GET_SOFTBAD 
14 11 00015 328 
0000G CF 0000G CF D1 00017 1$: CMPL DEVICE_CHAR+112, VOLUME_SIZE 
0B 1€ OOO1E BGEQU 
0000G CF ODD pone? PUSHL DEVICE_CHAR+112 
01 DD 49 4 PUSHL #1 
O000v CF 02 FB 00026 CALLS #2, MARK_BAD 
05 0000G CF 01 €1 0002B 2$: BBC #1, INIT_OPTIONS+1, 3$ 
0000v CF 00 FB 00031 CALLS #0, GET_OSERBAD 
04 00036 3$: RET 


; Routine Size: 55 bytes, Routine Base: $CODE$S + 0000 


Bete Se Se Ge Ge Se Ge Se Ge Se Ge Se Be 


: Pi 
JINIBAD.B32;1)" (2) 


16 
¥040000 1b-Sen-1984 Mbig89S  PNebinGmASteRscinis ene ainzeap.032:0°%° (3) 


ie 6 75 1 ROUTINE GET_FACTBAD = 

ee 6 1 

ie 8 1 !e4 

,. 5 8 1! 

3 19 43 : FUNCTIONAL DESCRIPTION: 

: 196 2 1 : eta abe groseseas the factory bad block data found on the Last 
F ! rack o e disk. 

3; 164 5 g 1! 

s 465 584 1! 

5 196 0585 1 ! CALLING SEQUENCE: 

s 1 : $ 1! GET_FACTBAD () 

: 168 1! 

3 199 588 1 ! INPUT PARAMETERS: 

s 170 0589 1! NONE 

3 171 T344 1! 

3 \7¢ 591 1! IMPLICIT INPUTS: 

: 17 8236 1! device table in INIT_DISK 

3 174 0593 1! 

s 175 0594 1 ! OUTPUT PARAMETERS: 

: 176 0595 1! NONE 

: 177 0596 1! 

s 178 0597 1 ! IMPLICIT OUTPUTS: 

; 179 0598 1! allocation table in INIT_DISK 

3 Hs 3444 : SERIAL_NUMBER: pack serial number from bad block data 

3 Ise 0601 1 ! ROUTINE VALUE: i 
> 0602 1! LBS if factory data found = 
3; «(184 0605 1! LBC if factory data not found 

; 185 0604 1! 

; 186 0605 1 ! SIDE EFFECTS: 

; 187 0606 1! disk blocks read 

; 188 0607 1! 

; 6189 0608 1 !-- 

: 190 0609 1 

: «191 0610 BEGIN 

; 136 pet} 

3; #19 \¢ LABEL 

3 Ie aot? SEARCH_TRACK; ! main loop to search last track of disk 
3 196 0615 LOCAL 

; 19 $18 BN ' LBN to mark bad 

> 198 1 BLOCKFACT i blocking factor of disk 

; 199 18 FIRST_TIME ! first time through flag 

; 200 19 FIRST-BUFFER, i first buffer fla 

: 201 0620 NOGOOB, ' no blocks read without errors 

s 4 1 STATUS, ' return status 

s 2 § P : REF BBLOCK, : parater into bad block descriptors 
3 Be ? DATA_LBN; ! LBN of current block in Last track 
3 5] 5 OWN 

3 34 § BUF FER2 : BBLOCK (512); ! buffer for second copy of data 

; $9 6 3 EXTERNAL 

3 10 INIT_OPTIONS : BITVECTOR, ' command options 

: et 630 SERIAL_NUMBER, ' pack serial number 

; 12 0631 DEVICE CHAR : BBLOCK, ' device characteristics 
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16-Sep-1984 01:43: VAX-11 Bliss-32 V4.0-742 Pa 
1a-Sep- 38 93:98:93 DISKSVMSMASTER: CINIT.SRCJINIBAD.B32;1 ™ (38 
BUFFER : BBLOCK; ' 1/0 buffer 
EXTERNAL ROUTINE 
READ_BLOCK; ! read disk block 


} First mark the entire last track of the disk bad to prevent its use. 


BLOCKFACT = (.DEVICE_CHAR pipes 36 C1088 
* .DEVICE_CHARLDIBSB_TRACKS 
* .DEVICE CHARLDIBSW_CYLINDERS)) 
/ .DEVICE CHARLDIBSL_MAXBLOCKI; 
DATA_LBN = .DEVICE_CHARCDIBSL pave. oce2 = .DEVICE_CHARCDIB$B_SECTORSJ/.BLOCKFACT; 
MARK_BAD (.DEVICE_CHARCDIB$B_SECTORSJ/.BLOCKFACT, .DATA_LBN); 
Now, if automatic bad b 


‘ Lock precess tas is not inhibited, find a good 
! block on the last track and process the bad block List in it. Do this 
! twice, once on the first good block and once on the first good block 
! after sector 10 (if not redundant) to get both factory and software 
detected bad block data. 


IF NOT .INIT_OPTIONSCOPT_VERIFIED] THEN RETURN 1; 


FIRST_TIME = 1; 
NOGOOB = 1; 


SEARCH TRACK: BEGIN 
HILE T DO 


FIRST_BUFFER = 1; 
wn te 
STATUS = READ_BLOCK (.DATA_LBN, (IF .FIRST_BUFFER THEN BUFFER ELSE BUFFER2)); 
IF STATUS 


BEG! 
NOGOOD = 0; 
IF .FIRST_BUFFER 
THEN 
BEGIN 
IF .BUFFERCBBDSL_LASTWORD) EQL -1 


THEN FIRST_BUFFER = 0; 
END 


GIN 

IF CHSEQL (512, BUFFER, 512, BUFFER2, 0) 

THEN EXITLOOP; 

END; 
END 

ELSE IF .STATUS NEQ SS$_PARITY 

THEN ERR_EXIT (.STATUS); 


DATA_LBN = .DATA_LBN + 1; 


INIBAD 1h-08 Sep-1984 01:43: VAX-11 Bliss-32 V4.0-742 7 
v04-000 14- ~8ep-1984 93:93:08 DISKSVMSMASTER:CINIT. SRCJINIBAD.B32; 29 (3) 
: 270 0689 IF .DATA_LBN GEQ .DEVICE E CHARCOIBSL -MAXBLOCK] 

; 271 re : THEN LEAVE SEARCH. TRACK; 

$ if 03) ? END; ! end of block search loop 

: 276 $98 4 ! We have a good bad block List. Process its entries. 

s ge 694 4! 

; 8 695 4 

H 7 036 4 IF .FIRST_TIME 

3 a4 : THEN SERIAL_NUMBER = .BUFFERCBBDS$L_SERIALI; 

; 80 699 4 IF .BUFFERCBBDSW_FLAGS) EQL 1 Pg 

3 B 0 2 THEN ERR_EXIT (INITS_DIAGPACK) 

H HE 144 4 P = BUFFER + BBDSC_DESCRIPT; 

> 284 703 4 dO 

3 gee 704 5 ee 

; 286 705 5 -PCBBDS$V CYLINDERI EQL 32767 

3 ser 0706 3 THEW E EXITLOOP 

> 288 0707 LBN = ((.B BBbSV. CYLINDER] 3 gDEVICE CHARCDIB$B TRACKS) 

; 289 0708 6 4 BBD$V_TRACK)) CRARCDIB$B_SECT 

; 290 0709 5 PCBBDSV— SECTOR) a OE VOCKRACT. 

, Ue 0710 5 MARK Bho" 4) eet 

3 28 0711 5 P = 7P + BBDSC LeNTRY: 

; fats 5 EN 

; 294 071 4 UNTIL .P GEQA BUFFER+512; 

; 295 0714 4 

; 296 0715 4 ! If we are not yet into the user data, position to it and try again. 
: 297 0716 4! 

; 298 0717 4 

3 $39 0718 4 FIRST_TIME 

; 300 0719 4 IF DATA_LBN “Gedy ,DEVICE CHARCDIBSL_MAXBLOCK) 

: 301 0720 4 DEV RARCDI me SECTORSJ/.BLOCKFACT + 10 THEN EXITLOOP; 
: 302 0721 4 DATA_LBN = .DEVICE vECaR DIBS$L_MAXBLOCK] 

; 303 b7s¢ & -DEVICE_CHARCOTB$B_ SECTORSI/ gg H + 10; 

3; 304 0723 3 END; { end of outer oop 

; 305 0724 2 END; ! end of block sf CH_TRACK 
3; 306 0725 2 

; 307 0726 § ! If we found no good data at all, complain. 

; 308 0727 ! 

3 4 0728 2 

: 310 ore? IF .NOGO 

; $1 fi ? THEN eRR. PXIT CINIT$_FACTBAD) ; 

3 Ht 0732 RETURN NOT .FIRST_TIME; 

5 3 0734 1 END; ! end of routine GET_FACTBAD 


-PSECT SOWNS,NOEXE,2 
00000 BUFFER2:.BLKB 512 


-EXTRN SERIAL NUMBER, BUFFER 
-EXTRN READ_BCOC 


-PSECT $CODES,NOWRT,2 
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HA oeine RO, BLOCKFAC 
uy RO 
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RO 
€_CHAR+112, DATA_LBN 
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#2, MARK_BAD 
46, INITLOPTIONS , 1$ 
#1. RO 

ai. f FIRST TIME 

# ait _BUFFER 
DATA_L 

FIRST BUFFER, 4$ 
BUFFER, RO 
BUFFER2, RO 

R6 
#2, READ BLOCK 
RO, STATOS 
STATUS, 7$ 


NO 
FIRST BUFFER, - 
UFFER+508, &=1 


FIRST_BUFFER 
#312, BUFFER, BUFFER2 


9$ 
STATUS, #500 


STATUS 
a LIBSSTOP 
DATA~LBN 

a BEVICE” ROHARS112 


14$ 
FARSI TIME 

FFER, SER Ay * WUMBER 
Bur FER’ $6, #65535 


A 00644 
Li BsST oP 


aufreR tJ 
r) ie , #32767 
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; Routine Size: 340 bytes, Routine Base: $CODE$ + 0037 


' I 
-Sep- 143: VAX-11 Bliss-32 V4.0-742 Page 9 
Rivet 137808 -13be 93:93:03 DISKSVMSMASTER:CINIT.SRCJINIBAD.B32;1 (3) | 
F 13 00009 BEQ 13$ ; 
, #15, (P), RO + 0707 ; 
50 64 ‘ 00006 dp 5A e i pon. R1 : ; 
: EF f EXT? #0, #7, 3(P), R2 + 0708 : 
” i 0 j 0 000E ADDL? R2, : : 
1 00006 CF SA StF MOVZBL DEVICE CHARSB, R1 ; ; 
; 02 ia oh ors itty 2(P), R2 ; 0709 ; 
58 ; c? f DivL3 BLOCKFACT, RO, LBN Sees 
1 DD 001 PUSHL #1 : ; 
ere | é 6 $100 ADDED * po : 0711 : 
6 5 00110 MOVAB BUFFER+512, RO ; 0713 : 
0 00006 CF 9E ; 
; THEME Gish as : ; 
Be D4 OO11A 13$:  CLRL FIRST_TIME : ; 
gg onnne Pe aaiaeBILERL REVUE EAS 2 : 
50 C : : 
124 SUBL2 DEVICE _CHAR+112, RO : ; 
come aS : ; 
4 6E SE 0012F MOVAB DATA, LBN, R1 ; 0719 ; 
: a tas : : 
«Ree oo ee. oe uel | 
re : 0729 ; 
OP oo7ssoac FD abe WS: Pusat 7700882. ; 0730 
F 0146 CALLS #1, LIBSSTOP ‘ : 
a 90 3 03 a9140 15$: MCOML FARSI TIME. RS 0732 
sg 04 00153 RET > 0734 ; 


a nS a 
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: v7 y 5 } ROUTINE GET_SOFTBAD : “OVALUE = 
: 38 we | tee | 
: $21 0739 1 | FUNCTIONAL DESCRIPTION: | 
: 3 741 13 This routine processes the data left by the bad block scan program 

$ G re 1! somewhere near the end of the disk. 

: 35¢ Spee} | | 
: 357 745 1 | CALLING SEQUENCE: 

: : ms : : GET_SOFTBAD () | 
: 330 748 1 | INPUT PARAMETERS: 
Bee Be ip 
; ‘ 0751 «1 | IMPLICIT INPUTS: | 
: $e BF 36 : device table in INIT_DISK 
: 36 0754 1 | OUTPUT PARAMETERS: 

2 i= 

: 339 0789 1 | IMPLICIT OUTPUTS: 

: ? 3634 : : allocation table in INIT_DISK 

; ae 0760 ROUTINE VALUE | 
: sce O76 1 i 
3 45 076 1 ! SIDE EFFECTS: 
: $ ore : disk blocks read 

: 348 0766 1 i-- | 
3 49 0767 1 

; 50 0768 BEGIN 

: 32) 0790 5 LOCAL 

: 3g 0771 LBN ' LBN to mark bad 

> 354 ore STATUS, i return status 

: 22 ori P : REF BBLOCK; ! pointer into bad block map 

: 2 0775 2 EXTERNAL 

; 358 776 INIT_OPTIONS : BITVECTOR, ' command options ’ 

: 359 77 DEVITE_CHAR : BBLOCK, ' device characteristics 

‘ 1 re BUFFER : BBLOCK; ' 1/0 buffer 
F é 0780 EXTERNAL ROUTINE | 
3 781 READ_BLOCK, ' read block by LBN 

; bo 56 CHECRSUM2; ' compute block checksum 
: 36s | 
; Bs : Scan from the end of the volume forward to find the bad block data. 
: : : If none is found, output a warning and proceed. 

: 7 

; : 3 Len = .DEVICE_CHARCDIBSL_MAXBLOCK]; | 
: $794 BEGIN 


t—— 
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_ INIBAD 
/ V04=000 


003C 00000 GET_SOFTBAD: 
WOR 


ls 74 792 3 DECR J FROM 32 T0 1 DO 

is Bre 795 4 BEGIN 

13 ug 794 4 LBN = .LBN = 1; 

ls f 195 4 STATUS = READ_BLOCK (.LBN, BUFFER); 

: 7 138 4 IF .STATUS 
|; 380 798 4 THEN | 
i: 381 799 2 BEGIN 

: S¢ 800 IF CHECKSUM2 (BUFFER, 5th etd | (BBM$W_ CHECKSUM) ) 

; 8 801 AND .BUFFER pendent busied. = 1 

; 84 bans AND .BUFFER Ponsa ~temee ge EQL 

: 85 AND .BUFFERLBBMS$B_INUSEJ LEQ (512 = BBMSC_POINTERS = 2) / 2 

; 386 THEN EXITLOOP 0; 

3 Ser 805 D 

; 8 4 ELSE IF .STATUS NEQ SS$_PARITY 

; 89 807 4 THEN ERR_EXIT (.STATUS); 

: 390 0808 4 END 

; wi 0809 END 

3 4 0810 THEN 

; get BEGIN 

: 9% aig ERR_MESSAGE (INITS_NOBADDATA); 

; 395 081 PE TORN; 

: 396 0814 2; 

: 597 0815 

: 398 0816 ! Found a gooo bad block descriptor. Enter it in the bad block map and 

; 399 0817 ! then process its contents. 

; 600 0818 ! 

: 401 0819 

3 rt oe , MARK_BAD (.DEVICE_CHARCDIBSL_MAXBLOCK] - .LBN, .LBN); | 

3 08 § P = BUFFER + BBMSC_POINTERS; 

; 405 4 Z oiae™ PS «BUF FERCBBM$B_INUSEJ/2 TO 1 DO 

; 407 0825 LBN = .PCBBM$W_LOWLBNI; 

; 408 0826 LBN<16,8> = .PTBBM$B_HIGHLBNI; 

; 409 082 MARK_BAD (.PCBBM$8_COUNTJ+1, .LBN); 

: 610 0828 P = .P + 4; 

3; «6411 0829 END; 

3 $ig 0830 ; 

; (41 0831 1 END; ! end of routine GET_SOFTBAD 

eEXTRN CHECKSUM2 
«WORD Save R2,R3,R4,R5 ; 0735 
55 0000G CF of 6000 MOVAB BUFFER, R : 
54 0000G CF 00 0000 MOVL DEVICE CHARTI2, LBN : 0789 
52 9 0 0000C MOVL #32, J ; 079 
DD QOOOF 1$: PUSHL 5 ; 079 
4 0011 USHAB -(LBN) : 
00006 gf F id CALLS +¥ READ BLOCK : 
; D Bat MOVL RO, STA : 
é : 018 LBC = STATUS, 2$ : 0797 
E O1FE F C Boss MOVZWL #510, -(SP) : 
5 odd 0002 PUSHL R5 : 
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| 
INIBAD 1hese -1984 01:43: VAX-11 Bliss=-32 V4.0-742 Page 12) 
v04-000 1e-8ep-19 4 93:98:93 DISKSVMSMASTER:CINIT.SRCJINIBAD.B32: 1. (4) 
0000G CF FB 00025 CALLS #2, CHECKSUM2 : 
| 2 5 E MiEh GALS Age Se : | 
| : g5 91 0000 CMPB fFER, #1 ; 0801, 
1 12 00030 BNEQ : | 
| 03 01 AS 9 00 2 CMP UFFER+1, #3 + 0802 | 
| FD oBF 02 Ae 9f 09 CHPB BUFFERS2, #253 : 0803 | 
| 14 1A 00030 BGTRU 3$ : 
| 23 11 0003F BRB 4$ + 0804 
| 000001F4  8F D1 00041 2$: CMPL TATUS, #500 + 0806 
2 BB iP tr STATUS : 0807 
000000006 00 07 FB O9ée CALLS #1, LIBSSTOP : 
9 52 F5 00053 3$: SOBGTR ; 079 
00759008 BF Dd 00056 PUSHL #7704584 ; 081 
000000006 01 FB 005¢ CALLS #1, LIBSSIGNAL : 
04 0006 RET + 0811 
54 Dp 0064 48: PUSHL LBN + 0820 
7E 00006 CF 54 C3 00066 SUBL3 LBN, DEVICE_CHAR+112, -(SP) : 
0000v CF 02 FB 0006C CALLS #2, MARK_BAD : 
28 06 AS YE 00071 MOVAB BUFFER+4, P ; oes 
5 02 A5 9A 00075 MOVZBL BUFFER+2. R3 : 082 
53 08 C6 00079 DIVL2 #2, R3 : 
53 D6 0007C INCL J : 
19 11 0007E BRB 6$ : 
54 02 a2 3¢ 90080 5$: MOVZWL 2(P), LBN > 0825 
54 08 10 62 FO 00084 INSV (P), #16, #8, LBN > 0826 
54 DD 00089 PUSHL LBN : 0827 
7E 01 A2 9A 00088 MOVZBL 1(P), =(SP) : 
6E D6 OOO8F INCL (SP) : 
0000v CF 02 FB 00091 CALLS #2, MARK_BAD : 
52 04 CO 00096 ADDL2 #4. P : 0828 
E4 53 F5 00099 6$: SOBGTR J, 5$ : 0823 
04 0009C RET + 0831 
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; FUNCTIONAL DESCRIPTION: 
command Line. 
CALLING SEQUENCE: 
GET_USERBAD () 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
allocation table 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
disk blocks read 


BEGIN 
LOCAL 
BLOCKFACT, 
LBN; 
EXTERNAL 


DEVICE_CHAR : 
BADBLOTK_TABLE : 


BADBLOCK_COUNT; 


! Pick up each entry in 


allocation table. 


int 
' sector - track = cylind 


BLOCKFACT = (.DEVICE_CHAR 
* .DEVICE-CHAR 
* DEVICE-CHAR 
/ .DEVICE-CHAR 


ROUTINE GET_USERBAD : NOVALUE = 


This routine processes the bad block data entered by the user in the 


device table in INIT_DISK 
parser output database 


in INIT_DISK 


! blocking factor of disk 
' LBN to mark bad 


BBLOCK, ! device characteristics 
BBLOCKVECTOR CBAD_LENGTH ° 
! user entered bad block table 
' count of entries 


he bad block table. If it was entered in 
er form, convert it to LBN. Enter it in the 


Pp 
JINIBAD.B32:1- 
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1 
—_INIBAD 1b-se -1984 01:43: VAX-11 Bliss-32 V4.0-742 Page 14. I! 
/v04-000 12-808-138e 03:93:03 DISKSVMSMASTER:CINIT.SRCJINIBAD.B32; 1 . (5) | v\ 
|: of 0689 @ INCR J FROM 0 TO .BADBLOCK_COUNT-1 DO : 
ls 47h 0891 IF .BADBLOCK_TABLEC.J, BAD_STC_FORM] | ; 
| @ } e 
: 676 $898 LBN = ((.BADBLOCK_TABLECL.J, BAD CYLINDER] * .DEVICE_CHARCDIB$B_TRACKS] ; 
> 477 0894 4 + .BADBLOCK-TABLEL.J, BAD-TRACK]) * .DEVICE CRARCDIB$B8_SECTORS] | : 
; $78 0899 = + .BADBLOCKTABLEL.J, BADTSECTORJ) / .BLOCKFACT | ; 
} 480 0899 LBN = .BADBLOCK_TABLEL.J, BAD_LBN); | : 
> 481 0898 MARK_BAD (.BADBLOCK-TABLEL.J, BAD-COUNTJ, .LBN); ; 
: 48 0899 END; F 
: 48 0900 | : 
> 4 0901 END; ! end of routine GET_USERBAD ‘ 
.EXTRN BADBLOCK_TABLE, BADBLOCK_COUNT ; 
O1FC 00000 GET_USERBAD: 
58 00006 CF 9E 90002 MOVAB DEVICE CHAR+8, RB : 
57 00006 CF 9E 0000 MOVAB BADBLOTK TABLE, R7 : 
50 68 9A 0000C MOVZBL DEVICE_CRAR+8, RO > 0885 
51 01 A8 9A 0000F MOVZBL DEVICE-CHAR+9, R1 : 
50 51 cé 00013 MULL2 R1, RO ; 
52 02 A8 3C 00016 MOVZWL DEVICE _CHAR+10, R2 + 0886 
50 52 C4 OOO1A MULL@ R2, RO ; 
55 50 68 ABS C7 0001D DIVL3 DEVICE _CHAR+112, RO, BLOCKFACT + 0887 
54 0000G CF DO 00022 MOVL BADBLOCK_COUNT, R4 ; 0889 
52 01 CE 900 7 MNEGL #1, J ; 
49 11 OOO2A BRB 4$ ; 
06 A742 7F 0002C 18: PUSHAQ BADBLOCK_TABLE+6(J] + 0891 
2D 9E 00 a 00030 BBC #0, a(SPY+, : 
02 A742 7F 00034 PUSHAQ BADBLOCK_TABLE+2(J] > 0893 
50 9E 3C 00038 MOVZWL a(SP)+, R F 
51 01 As 9A 00038 MOVZBL DEVICE.CHAR+9, R1 : 
50 51 ch 003F MULL2  R1, ; 
01 A742 7F 90042 PUSHAQ BADBLOCK_TABLE+1(J] + 0894 
56 9E 9A 00046 MOVZBL a(SP)+, R6 ; 
50 56 CO 00049 ADDL2 6, R ; 
51 68 9A 0004C MOVZBL DEVICE_CHAR+8, R1 : 
50 51 C4 O04F MULL2 R1, R : 
6742 7F 0052 PUSHAQ BADBLOCK_TABLELJ) + 0895 
56 9E 9A 905 MOVZBL a(SP)+, R6 : | 
0 5 C0 8 ADDLe R : 
53 50 55 ¢7 00058 DIVL LOCKFACT, RO, LBN ; 
06 11 0005F BRB : 0893 
| 6742 7F 9061 28: PUSHAQ BADBLOCK_TABLELJ] : 0897 
53 9E DO 00064 MOVL a(SP)+, CBN F 
| 5 DD 0067 3$: PUSHL LB : 0898 
04 A742 7F 00069 PUSHAQ BADBLOCK_TABLE+4(J] ; 
7E 9E 3¢ 0060 MOVZWL a(SP)+, =(SP) ; 
0000v CF ge FB 00 9 CALLS #2, MARK_BAD ; 
B3 52 4 F2 00075 4$: AOBLSS R4. J, 18 > 0889 
04 00079 RET ; 0901 | 
| 


; Routine Size: 122 bytes, Routine Base: S$CODE$ + 0228 
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INIBAD 1hese -1984 01:43:0 VAX-11 Bliss-32 V4.0-742 Page 16 
_vo4=000 eats PR Pe Se Mee HES Pg yt at 

3 o86 44 } ROUTINE MARK_BAD (BLOCK_COUNT, START_LBN) : NOVALUE = 

: 488 0304 1 !+4 

; 489 905 1! 

; 490 090: 1 ! FUNCTIONAL DESCRIPTION: 

: 691 0907 1! 

; 49 9444 1! This routine enters the indicated block(s) into the bad block part 

; 49 909 1! of the allocation table. The table is maintained in reverse order 

; 494 0910 1! by LBN, and adjacent or overlapping areas are merged. Reverse order 

; 4695 0911 1! is used to make the bad block data appear at the front of the volume's 

; 496 0912 1! bad block file. 

; 497 a4 1! 

; 498 914 1! 

; 699 0915 1 ! CALLING SEQUENCE: 

; 500 0916 1! MARK_BAD (ARG1, ARG2) 

; 501 0917 1! ‘ 

: 206 0918 1 ! INPUT PARAMETERS: 

; 50 wy a ARG1: count of blocks to mark bad 

3 ape diy : ARG2: start LBN of blocks 

: 506 0922 1} IMPLICIT INPUTS: 

; rat 34 Z : allocation table 

: 509 $353 1 | OUTPUT PARAMETERS: 

: aif b959 1 i — 

: 212 $958 1! IMPLICIT OUTPUTS: 

Pi orn ee 

: 515 0931 1 ! ROUTINE VALUE: 

Hees |B | len 

: 518 0934 1 | SIDE EFFECTS: 

; $19 0935 1! allocation table altered 

: fee 0936 1! 

: 38) $988 1 

Bo By pee 

: 525 0941 2 LOCAL 

: 526 094 LBN, ' start LBN of new bad cluster 

; 2s2 094 COUNT, ! block count of new bad cluster 

: 528 0944 Mm ! index into bad block allocation table 

3 269 BS? C; ! merge loop counter 

: 531 0947 EXTERNAL 

; 236 948 CLUSTER ' volume cluster factor 

; 3 0949 VOLUME _§ ' volume size rounded to next cluster 

; 534 0950 DBLOTK_TOTAL, ' count of bad areas so far 

s 535 0951 BADBLOCK_LBN : VECTOR, ' bad block LBN table 

; 239 B226 BADBLOCK~— CNT : VECTOR; ' bad block count table 

: 538 954 2 EXTERNAL LITERAL | 

3 340 336 BADBLOCK_MAX : UNSIGNED (16); ! Length of bad block table 

: 541 95 

i: 542 0958 ! Round the start LBN and count out to the cluster buundaries surrounding 


Re 
INIBAD 18+ Sep VAX-11 Bliss-32 V4.0-742 
v04-000 14-Sep 7138 ¥) 48: 3 DISK KSVMG ASTER: CIWiT.SRCJINIBAD.B32; 
: 543 9328 ' the bad area. 
> 944 960 i 
; 545 449 
: +8 306 IF .BADBLOCK TOTAL GEQ BADBLOCK_MAX 
: re 0364 THEN ERR EXIT CINITS_MAXBAD) ; 
: 549 965 LBN = 2 START LBN / .CLUSTER * .CLUSTE 
; 229 839 COUNT = (.START_LBN + .BLOCK _COUNT + TELusTER - 1) / .CLUSTER * .CLUSTER - .LBN; 
: 226 096 IF .LBN GEQU “VOLUME 3! 
3 e227 3434 THEN ERR_EXIT (INIT ~BADRANGE) ; 
3 So 971 ! Search the allocation table until an entry is found with a start LBN lower 
; 556 097 i than the new LBN. Shuffle the table down at this point and insert the 
3 Dor 097 i new entry. 
5 338 0974 i 
; oF 0975 
: 560 097 J =0; 
ee.) 097 UNTIL .J GEQ .BADBLOCK_TOTAL DO 
3 | 0978 BEGIN 
; 56 0979 IF .BA POOLOCR LOM. «33 LSSU .LBN THEN EXITLOOP; 
: 564 0980 a @ «4 @ ig 
3 369 0981 END; 
; 566 098 
3 367 098 CHSMOVE ((.BADBLOCK_TOTAL=-.J)*4, BADBLOCK_LBNC.JJ, BADBLOCK_LBN[.J+1)); 
; 568 0984 CHSMOVE ((. BADBLOCK™ TOTAL>.J) 4. BADBLOCK CNTC.JJ, BADBLOCK_CNTL.J+1)); 
: 569 0985 BADBLOCK_TOTAL = eee TOTAL + 1; 
3 S70 0986 BADBLOCK_CNTC. J] = - COUNT 
; a p38e BADBLOCK_LBN "33 = .LBN; 
: 278 0989 ! Now check for adjacencies and merge if they exist. Start with the previous 
; 574 0990 ' table entry and compare pairs. 
; S79 0991 i 
3 36 099 
; 578 0994 C = 0; 
; 579 0995 
; 280 044 UNTIL .J+1 GEQ .BADBLOCK_TOTAL DO 
; 266 0998 If .BADBLOCK_LBNC.JJ LEQ .BADBLOCK_LBNC.J+1] + .BADBLOCK_CNTC.J+1] 
; 58 0999 THEN 
; 584 1000 4 BEGIN 
; 585 1001 4 BADBLOCK_CNTC.J+1] = MAXU (.BADBLOCK -LBNr J] + sBADBLOCK CNTC.JJ, 
3 286 1002 4 BL Locks LBNC.J+1) + .BADBLOTK _CNTE. j+1)) 
; 2 1003 4 .BADBLOCK x .J*1];_ 
; 588 1004 4 BADBLOCK_TOTAL = .BADBL OCK_TOT 1; 
: 589 1005 4 CHSMOVE T(.BADBLOCK_TOTAL-~ yye40 BADBLOCK_LBNC.J+1], BADBLOCK_LBNT. sD; ; 
: 90 108 % CHSMOVE ((.BADBLOCK-TOTAL-.J J)*4, BADBLOCK"CNTL.J+1], BADBLOCK_CNTC.JJ); 
: 591 1007 4 BADBLOCK_ CNTL. BADBLOCK_ TOTAL] = 0; 
$ 4 1008 4 END 
; 59 1009 4 
: «5946 1010 3 ELSE 
; 595 1011 4 BEGIN 
: 4] 1 1 4 4 2 of @ I3 
; 59 1013 4 Ce. ¢ VW 
; 598 1014 4 IF .C GEQ 2 THEN EXITLOOP 
; 599 1015 3 END; 


INIBA 
v04=000 
600 101 END; 
; 603 1019 ; 
; 602 1018 END; 
5B 
000000006 8F 
000000006 99 
50 08 AC 
58 50 
50 08 ac 
50 
50 
50 
59 50 
0000G CF 
000000006 00 
0000G CF 
58 
57 0000G CF 
57 
9E 9E 
9E 9E 
QOOOGCF 46 
6846 
50 
0000G CF 
59 
52 “sn 
5 
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16-Se 70 VAX=11 Bliss-32 V4.0-742 1 
14- ety 7 93: 43: 3 DISKSVMSMASTER: CINIT.SRCJINIBAD.B32; y ott (6 
! end of merge loop 
! end of routine MARK_BAD 


~EXTRN CLUSTER, BADBLOCK_TOTAL 
SEXTRN BADBLOCK -LBN. BADBLOCK_CNT 
-EXTRN BADBLOCK_M 


| 
WORD e ©2,R3 Rs, R5,R6,R7,R8,RI,R10,R11 : ee 
2 MOVAB BADSLUCK TL { : | 
0 CMPL a TOTALS #BADBLOCK_MAX + 0962 
15 PUSHL #7700668 + 0963 
18 CALLS ‘1, LIBS$STOP ; 
1F 1$ MOVL. CLUSTER > 0965 
4 DIVL3 R1, START_LBN, RO : 
9 MULL3 R1, RO, L ; 
D ADDL3 BLOCK Count START_LBN, RO + 0966 
3 MOV -1( ; ROJ, RO : 
33 DIVL2 R1, RO : 
3B MULL RI RO : 
3E SUBL RO, COUN : 
42 CMPL tBN: VOLUME Us Ize : 0968 
4 BLSSU ; 
49 PUSHL #7700628 + 0969 
4F CALLS i, LIBS$STOP : 
56 28: CLRL : 0976 
38 $: CMPL J, BADBLOCK_TOTAL : 0977 
SF CMPL §_ BADBLOCK_LBNLJJ, LBN : 0979 
63 BLSSU4$ : 
65 INCL J > 0980 
67 BRB 3$ : 0977 
69 4$ SuBL 3 J, BADBLOCK_TOTAL, R7 : 0983 
72 PUSHAL BADBLOCK_LBN+4(J) ; 
76 PUSHAL BADBLOCK-LBNLJ é 
79 MOVC3 (SPJ+, a(SP) ; 
7D PUSHAL BADBLOCK_CNT+4(J] : 0984 
Be PUSHAL BADBLOCK~CNTLJ ; 
8 MOVC3 R7 a(SPY a(SP)+ ; 
INCL BAbBe Oe TOTAL : 0985 
BF MOVL COUNT CBRDBLOCK CNTCJ) > 0986 
95 MOVL §LBN, BADBLOCK_LBNLJ : 0987 
99 TSTL : 0993 
98 BEQL -5$ : 
9D DECL =SsJ ; 
OF 5$: tia 86 > 0994 
Al 6$: MOVAB 1(R6), RO > 0996 
AS CMPL RO, BADBLOCK_TOTAL ; 
AA BGEG }46=«-«&9S ; 
AC MOVA BADBLOCK CNTCRO + 0998 
Be ADDL3 = (RO GADEL OFF U6 no, R2 : 
B CMPL BapBcore LBNLJJ ; 


1 
INIBAD 18-sep -1984 VAX=11 s-32 V4.0-742 It 
v04= eae re mee HS red a 

3F 14 00088 BGTR.  8$ ; : 
51 6846 o000ccr 46 C1 000B ADDL3 "ke EN BADBLOCK_LBN[JJ, R1 + 1001 : 
5 D1 cS CMPL + 1002 ; 
1 C BGEQU : ; 
51 DO OOOCA MOVL : 3 
69 51 6840 ¢ 0 CD 7$: SUBL3 BebBCOCK -LBNEROI, R1, (R9) + 1003 : 
00006 CF D D DECL § BADBLOCK~TOTAL + 1004 ; 
57 00006 ct D9 00D MOVL AA TOTAL. R7 + 1005 F 
58 57 6 C3 000DB SUBL : : 
58 04 ¢4 OOODF MULL : ; 
6B46 DF O0Ee PUSHAL BABBLOCK. LBNCJJ : ; 
6840 DF O0E PUSHAL BADBLOCK™ LBN ROI : ; 
9E 9E 58 28 000E8 MOVC3 , a(SP3+, a(SP)+ : ; 
OO00GCF46 DF OODEC PUSHAL BASBYOCK ented) + 1006 : 
9E 69 25 28 OO0F1 MOVC3 8, (RO), a(SP)+ : : 
OO00GCF47 D4 O00FS CLRL BADBLOCK. CATER? + 1007 ; 
AS 11 OOF A BRB 6$ : 0998 : 
56 D6 OOOFC 8$ INCL J : 1012 ; 
SA 06 S00rE INCL ¢ + 101 ; 
02 5A 01 00100 CMPL ss, #2 + 1014 : 
9c 19 00103 BLSS =s«6$ : : 
04 00105 98: RET + 1018 : 
; Routine Size: 262 bytes, Routine Base: $CODE$S + 02A2 ; 
> 603 1019 : 
604 1020 1 END ; 
605 1021 0 ELUDOM : 
-EXTRN LIBSSIGNAL, LIBSSTOP : 
; PSECT SUMMARY : 
: Name Bytes Attributes 3 
: $CODES 936 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
> SOWNS 512 NOVEC, WRT, RD .NOEXE.NOSHR, LCL. REL. CON.NOPIC.ALIGN(2) ; 
3 Library Statistics : 
een a ee ee ee Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time : 
;  _$255$DUA28:(SYSLIBILIB.L32; 1 18619 26 0 1000 00:01.9 3 
; 


a 


y04e080 1p “520-14 939898 Pb imGMASTERSCINIS. See ainzBAD.832;1°%° (3S 
: COMMAND QUALIFIERS 


H BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INIBAD/OBJ=0BJ$:INIBAD MSRC$: INIBAD/UPDATE=(ENH$: INIBAD) 


Size: 936 og + 512 data bytes 
Run Time: :22.3 
Elapsed Time: 746.1 
Lines/CPU Min: 74 
Lexemes/CPU-Min: 29270 

Y Used: 151 pages 
Compilation Complete 
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